home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1994 November / Cd Ware (Nro. 2) - Epimundo.iso / DOS / CM / BBS200.ZIP / HELLO.PPS < prev    next >
Encoding:
Text File  |  1994-03-20  |  3.3 KB  |  102 lines
  1. ; Pepster's Calling Log Ver 1.15
  2. ; Written by John Pepp
  3. ; First Compiled 12 March 94 using PPLC 2.00
  4. ; PCBoard 15.1 Software Required
  5. ; If you modified this PPl, please upload a the pps file
  6. ; to the folliwing Bulletin Board:
  7. ; Pepster's Place
  8. ; (313)421-9145 (First Line)
  9. ; (313)421-9177 (Second Line...Use 1st one when Calling)
  10.  
  11. STRING datestamp 'DATE STAMP - A FILE TO SAVE CURRENT DATE
  12. STRING todaysdate 'TODAY'S DATE
  13. STRING Line
  14. STRING key
  15. STRING CR
  16. STRING Answer
  17.  
  18. LET CR = CHR(13)
  19.  
  20. CLS ;CLEAR THE SCREEN
  21. DISPFILE PPEPATH()+"BYEG",SEC+GRAPH+LANG 'DISPLAY CALLERS FOR TODAY!
  22.  
  23. LET todaysdate = DATE() 'ASSIGN SYSTEM'S DATE TO VARIABLE
  24. LET datestamp = "01/01/90" 'SEED DATE STAMP
  25.  
  26. FOPEN 2, PPEPATH()+"DATETEST", O_RD,S_DW
  27. IF (FERR(2)) THEN
  28.   SPRINTLN "ERROR, FILE DOESN'T EXIST!" 'PRINTS A MESSAGE TO LOCAL SCREEN ONLY
  29. ENDIF
  30.  
  31. IF (!FERR(2)) THEN
  32.   FGET 2, datestamp
  33. ENDIF
  34. FCLOSE 2
  35. ; END OF RETRIEVE DATESTAME VARIABLE
  36.  
  37. IF (CURSEC() >= SYSOPSEC()) THEN
  38.   if (datestamp < todaysdate) then
  39.     FCREATE 1, PPEPATH()+"BYEG",O_WR,S_DN
  40.     FPUTLN 1, "@X04NO ONE HAS CALL FOR TODAY YET!"
  41.     FCLOSE 1
  42.   ENDIF
  43.   END
  44. ENDIF
  45.  
  46. ; IF SECURITY IS LESS THAN SYSOP'S THE REST OF PROGRAM IS EXECUTED!
  47.  
  48. KBDCHKOFF 'MAKE SURE AUTOMATIC KEYBOARD TIMEOUT IS DISABLED!
  49. IF (datestamp = todaysdate) THEN 'If it's not a new day append next caller to log
  50.   FAPPEND 1, PPEPATH()+"USERSG",O_RW,S_DB
  51.   FPUT 1, "@X70│  @X71"
  52.   FPUTPAD 1, PCBNODE(), -6
  53.   FPUTPAD 1, U_NAME(), -20
  54.   FPUTPAD 1, DATE(), 10
  55.   FPUTPAD 1, TIME(), 10
  56.   FPUTPAD 1, CARRIER(), 7
  57.   FPUTPAD 1, U_LOGONS(), 8
  58.   FPUTPAD 1, "            @X7F │",-18
  59.   FPUTLN 1
  60.   FCLOSE 1
  61. ELSE IF (datestamp < todaysdate) THEN 'if it is a new day restart log
  62.   FCREATE 1, PPEPATH()+"USERSG",O_WR,S_DN
  63.   FPUT 1, "@X70│@X71  "
  64.   FPUTPAD 1, PCBNODE(), -6
  65.   FPUTPAD 1, U_NAME(), -20
  66.   FPUTPAD 1, DATE(), 10
  67.   FPUTPAD 1, TIME(), 10
  68.   FPUTPAD 1, CARRIER(), 7
  69.   FPUTPAD 1, U_LOGONS(), 8
  70.   FPUTPAD 1, "            @X7F │",-18
  71.   FPUTLN 1
  72.   FCLOSE 1
  73.   FCREATE 2, PPEPATH()+"DATETEST",O_WR,S_DN
  74.   FPUTLN 2, DATE()
  75.   FCLOSE 2
  76. ENDIF
  77. ; Generate Fantastic Bulletin for PCBoard 15.1
  78. FCREATE 4, PPEPATH()+"BYEG", O_WR, S_DN
  79. FPUTLN 4, "@CLS@@X70┌────────────────────────────────────────────────────────────────────────────@X7F┐"
  80. FPUTLN 4, "@X70│@X74                      Previous Callers Log Ver 1.15                        @X7F │"
  81. FPUTLN 4, "@X70│@X71                         Written By John Pepp                               @X7F│"
  82. FPUTLN 4, "@X70│@X70                                                                            @X7F│"
  83. FPUTLN 4, "@X70│ @X74Node     @X70Name                  @X75Date      @X71Time     @X74Baud  @X70Total Calls       @X7F │"
  84. FPUTLN 4, "@X70│                                                                            @X7F│"
  85. FOPEN 1, PPEPATH()+"USERSG", O_RD, S_DW
  86. FGET 1, LINE
  87. WHILE (!FERR(1)) DO
  88.   FPUTLN 4, Line
  89.   FGET 1, LINE
  90. ENDWHILE
  91. FCLOSE 1
  92.  
  93. FPUTLN 4, "@X70│@X70                                                                            @X7F│"
  94. FPUTLN 4, "@X70│    @X75(313)421-9145         Open 24 Hours A Day     2400/9600/14000          @X7F │"
  95. FPUTLN 4, "@X70└@X7F────────────────────────────────────────────────────────────────────────────┘@X07 "
  96. FCLOSE 4
  97. ; End of Bullentin
  98.  
  99. KBDCHKON 'TURN KEYBOARD BACK ON
  100. COLOR @X07
  101. END
  102.